index_VS_VS Function

private elemental function index_VS_VS(string, substring, back) result(i_substring)

Get the index of a varying substring within a varying string

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
type(varying_string), intent(in) :: substring
logical, intent(in), optional :: back

Return Value integer


Source Code

  elemental function index_VS_VS (string, substring, back) result (i_substring)

    type(varying_string), intent(in) :: string
    type(varying_string), intent(in) :: substring
    logical, intent(in), optional    :: back
    integer                          :: i_substring

    i_substring = INDEX(char(string), char(substring), back)

! Finish

    return

  end function index_VS_VS